home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.8.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  27 lines
  1. 100  REM +----------------------+
  2. 110  REM !                      !
  3. 120  REM ! Applesoft-Konstanten !
  4. 130  REM !                      !
  5. 140  REM +----------------------+
  6. 150  TEXT : HOME : HTAB 10: PRINT "APPLESOFT-KONSTANTEN": PRINT : PRINT 
  7. 160  PRINT "NAME" SPC( 11)"WERT" SPC( 8)"SPEICHER": GOSUB 300
  8. 170  FOR K = 1 TO 13: READ A$,A
  9. 180  GOSUB 200: NEXT : GOSUB 300
  10. 190  PRINT : PRINT "MIN.INT IST UNGENAU, WEIL BYTE 5 FEHLT.": END 
  11. 200 D = 0: FOR I = 1 TO 5
  12. 210 Z(I) =  PEEK(A +I -1): NEXT 
  13. 220 V$ = "+": IF Z(2) >127  THEN V$ = "-"
  14. 230  IF Z(2) <128  THEN Z(2) = Z(2) +128
  15. 240  FOR I = 1 TO 4:D = D +Z(I +1) *256 ^ -I: NEXT 
  16. 250 D = D *2 ^(Z(1) -128)
  17. 260  PRINT A$;: HTAB 11: PRINT V$;:D$ =  STR$(D): IF  INT(D) = D  THEN D$ = D$ +"."
  18. 270  IF D <1  THEN D$ = "0" +D$
  19. 280  IF  LEN(D$) <11  THEN D$ = D$ +"0": GOTO 280
  20. 290  PRINT D$;: HTAB 25: PRINT A" BIS "A +4: RETURN 
  21. 300  FOR I = 1 TO 39: PRINT "-";: NEXT : PRINT : RETURN 
  22. 310  DATA MIN.INT,57598,1,59667
  23. 320  DATA SQR(1/2),59693,SQR(2),59698
  24. 330  DATA -1/2,59703,LN(2),59708
  25. 340  DATA 10,59984,MILLIARDE,60692
  26. 350  DATA 1/2,61028,2LG(E),61147
  27. 360  DATA PI/2,61542,2*PI,61547,1/4,61552